﻿Imports System.IO

<Serializable()> Public Class LogDAL
    Implements InterfaceDAL






    Dim dal As New DAL

    Public Sub Delete(ByVal tabela As sonicERPinfo.Tabelainfo) Implements InterfaceDAL.Delete
        Dim _select As String = "USP_LOGS"
        Dim parameter As New ArrayList
        parameter.Add("@idTabela")
        parameter.Add("@NomeTabela")
        parameter.Add("@XmlTabela")
        parameter.Add("@TipoComando")
        Dim entidade As New ArrayList
        entidade.Add(tabela.Logs.idtabela)
        entidade.Add(tabela.Logs.nometabela)
        entidade.Add(tabela.Logs.xmltabela)
        entidade.Add(tabela.Logs.tipocomando)
        dal.SQLExecuteNonQuery(_select, True, parameter, entidade, True)
    End Sub

    Public Function Getlista(ByVal tabela As sonicERPinfo.Tabelainfo) Implements InterfaceDAL.Getlista
        Return Nothing
    End Function

    Public Function getlista(ByVal tabela As sonicERPinfo.Tabelainfo, ByVal obj As Object) As Integer
        Dim _select As String = "SELECT MAX(id) FROM " + tabela.Logs.nometabela + " WITH (NOLOCK) "
        Dim parameter As New ArrayList

        Dim entidade As New ArrayList

        Return dal.ExecuteScalar(_select, False, parameter, entidade, False)
    End Function
    Public Overloads Sub Insert(ByVal tabela As sonicERPinfo.Tabelainfo) Implements InterfaceDAL.Insert
        Dim _select As String = "USP_LOGS"
        Dim parameter As New ArrayList
        parameter.Add("@idTabela")
        parameter.Add("@NomeTabela")
        parameter.Add("@XmlTabela")
        parameter.Add("@TipoComando")
        Dim entidade As New ArrayList
        entidade.Add(tabela.Logs.idtabela)
        entidade.Add(tabela.Logs.nometabela)
        entidade.Add(tabela.Logs.xmltabela)
        entidade.Add(tabela.Logs.tipocomando)
        dal.SQLExecuteNonQuery(_select, True, parameter, entidade, True)

    End Sub

    Public Sub Update(ByVal tabela As sonicERPinfo.Tabelainfo) Implements InterfaceDAL.Update
        Dim _select As String = "USP_LOGS"
        Dim parameter As New ArrayList
        parameter.Add("@idTabela")
        parameter.Add("@NomeTabela")
        parameter.Add("@XmlTabela")
        parameter.Add("@TipoComando")
        Dim entidade As New ArrayList
        entidade.Add(tabela.Logs.idtabela)
        entidade.Add(tabela.Logs.nometabela)
        entidade.Add(tabela.Logs.xmltabela)
        entidade.Add(tabela.Logs.tipocomando)

        dal.SQLExecuteNonQuery(_select, True, parameter, entidade, True)
    End Sub

    Public Overloads Function Insert(ByVal tabela As sonicERPinfo.Tabelainfo, ByVal sobrecarga As Boolean) As Object Implements InterfaceDAL.Insert

        Return True
    End Function
End Class
